home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO064.dsk
/
ADD.SORT.bas
< prev
next >
Wrap
BASIC Source File
|
2012-02-16
|
930b
|
25 lines
100 HOME : VTAB 10
110 PRINT : PRINT " * * * * SORTING DATA * * * *"
120 FOR K = 1 TO NP
130 D$(K) = SA$(K) +SB$(K)
140 NEXT K
150 N2 = 1
160 FOR J = 1 TO NP:AS$ = D$(J): FOR K = N2 TO NP: IF AS$ > = D$(K) THEN AS$ = D$(K):Z = K
200 NEXT K
210 IF Z = J THEN GOTO 300
220 A1$ = A$(J):A$(J) = A$(Z):A$(Z) = A1$
230 S1$ = SA$(J):SA$(J) = SA$(Z):SA$(Z) = S1$
240 B1$ = B$(J):B$(J) = B$(Z):B$(Z) = B1$
250 C1$ = C$(J):C$(J) = C$(Z):C$(Z) = C1$
260 CC$ = CC$(J):CC$(J) = CC$(Z):CC$(Z) = CC$
270 E1$ = E$(J):E$(J) = E$(Z):E$(Z) = E1$
280 SB$ = SB$(J):SB$(J) = SB$(Z):SB$(Z) = SB$
290 D1$ = D$(J):D$(J) = D$(Z):D$(Z) = D1$
300 N2 = N2 +1: NEXT J:NP% = 1
350 FOR J = 1 TO NP:D$(J) = "": NEXT J
355 HOME : VTAB 10: HTAB 15: PRINT "HOUSECLEANING"
360 PRINT CHR$(4);"FRE"
32000 HOME
32010 PRINT CHR$(4);"CHAIN ADD.ENTER,@32000"
40000 PRINT CHR$(4);"SAVE /RAM/ADD.SORT"
40100 PRINT CHR$(4);"CHAIN ADD.INIT,@40000"